
 1000  *SAVE S.PRINT 000-255
 1010  *--------------------------------
 1020  PRINT.000.255
 1030         LDY #2
 1040  .1     LDX #"0"
 1050  .2     CMP DECTBL,Y
 1060         BCC .3       DIGIT FINISHED
 1070         SBC DECTBL,Y
 1080         INX
 1090         BNE .2       ...ALWAYS
 1100  .3     PHA          SAVE REMAINDER
 1110         TXA
 1120         JSR $FDED
 1130         PLA          GET REMAINDER
 1140         DEY
 1150         BPL .1
 1160         RTS
 1170  *--------------------------------
 1180  DECTBL .DA #1,#10,#100
 1190  *--------------------------------
 1200  T      LDA #0
 1210  .1     PHA          SAVE VALUE
 1220         JSR PRINT.000.255
 1230         LDA #" "
 1240         JSR $FDED
 1250         PLA          GET PREVIOUS VALUE
 1260         CLC
 1270         ADC #1       INCREMENT
 1280         BNE .1
 1290         RTS

